home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d1 / epromdeo.arc / TEP600V.PLD < prev    next >
Encoding:
Text File  |  1989-04-23  |  2.5 KB  |  98 lines
  1. Sample file for the EP600      Use with SMS PLDASM   V3.0e or later
  2.  
  3. counter on right side of device is synch
  4. counter on left side of device is asynch
  5.  
  6. /^:=  or  ^:=  means that the flip flop is a toggle type, not D type
  7.  
  8. Device ep600
  9.  pin1    = 1
  10.  pin2    = 2           ' count enable, active low
  11.  pin3    = 3        ' asynch counter clock
  12.  pin4    = 4
  13.  pin5    = 5
  14.  pin6    = 6
  15.  pin7    = 7
  16.  pin8    = 8
  17.  pin9    = 9
  18.  pin10    = 10
  19.  pin11    = 11
  20.  pin13    = 13
  21.  pin14    = 14        ' active high reset
  22.  pin15    = 15
  23.  pin16    = 16
  24.  pin17    = 17
  25.  pin18    = 18
  26.  pin19    = 19
  27.  pin20    = 20
  28.  pin21    = 21
  29.  pin22    = 22
  30.  pin23    = 23
  31. turbo
  32. start
  33.                 ' use T type flip flop
  34.  pin22   ^:=   pin2 * pin22     ' reset by toggling if high
  35.            +  /pin2;        ' count => toggle
  36.  pin22.rst = pin14;        ' another way to reset
  37.  
  38.  pin21   ^:=   pin2 * pin21     ' reset 
  39.            +  /pin2 * pin22;    ' carry count from pin22
  40.  pin21.rst = pin14;
  41.  
  42.  pin20   ^:=   pin2 * pin20    +  /pin2 * pin22 * pin21;
  43.  pin20.rst = pin14;
  44.  
  45.  pin19   ^:=   pin2 * pin19    +  /pin2 * pin22 * pin21 * pin20;
  46.  pin19.rst = pin14;
  47.  
  48.  pin18   ^:=   pin2 * pin18    +  /pin2 * pin22 * pin21 * pin20 * pin19;
  49.  pin18.rst = pin14;
  50.  
  51.  pin17   ^:=   pin2 * pin17    +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18;
  52.  pin17.rst = pin14;
  53.  
  54.  pin16   ^:=   pin2 * pin16    +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18 * pin17;
  55.  pin16.rst = pin14;
  56.  
  57.  pin15   ^:=   pin2 * pin15    +  /pin2 * pin22 * pin21 * pin20 * pin19 * pin18 * pin17 * pin16;
  58.  pin15.rst = pin14;
  59.  
  60.  pin3     :=  /pin3;    ' toggle 
  61.  pin3.rst  =   pin2;    ' reset
  62.  
  63.  pin4     :=  /pin4;    ' make a T type from a D type
  64.  pin4.clk  =  /pin3;      ' use pin 3 as asynch clock
  65.  pin4.rst  =   pin2;
  66.  
  67.  pin5     :=  /pin5;
  68.  pin5.clk  =  /pin4;
  69.  pin5.rst  =   pin2;
  70.  
  71.  pin6     :=  /pin6;
  72.  pin6.clk  =  /pin5;
  73.  pin6.rst  =   pin2;
  74.  
  75.  pin7     :=  /pin7;
  76.  pin7.clk  =  /pin6;
  77.  pin7.rst  =   pin2;
  78.  
  79.  pin8     :=  /pin8;
  80.  pin8.clk  =  /pin7;
  81.  pin8.rst  =   pin2;
  82.  
  83.  pin9     :=  /pin9;
  84.  pin9.clk  =  /pin8;
  85.  pin9.rst  =   pin2;
  86.  
  87. vector K1LLLLLLLHHNK1LLLLLLLLHN ' 1    these vectors were made using
  88. vector K1LLLLLLLHHNK1LLLLLLLLHN ' 2    the PAL 'G' command.
  89. vector K0HLLLLLLHHNK0LLLLLLLHHN ' 3
  90. vector K0LHLLLLLHHNC0LLLLLLHLHN ' 4
  91. vector K0HHLLLLLHHNC0LLLLLLHHHN ' 5
  92. vector K0LLHLLLLHHNC0LLLLLHLLHN ' 6
  93. vector K0HLHLLLLHHNC0LLLLLHLHHN ' 7
  94. vector K0LHHLLLLHHNC0LLLLLHHLHN ' 8
  95. vector K0HHHLLLLHHNC0LLLLLHHHHN ' 9
  96.  
  97. end
  98.